﻿Public Class Tipologias
    Inherits System.Web.UI.Page

#Region "Variáveis"

    Private intCodigoClassificacao As Integer

#End Region

#Region "Propriedades"


#End Region

#Region "Funções"

    Private Sub CarregarRepeater()

        Dim objTipos As New DLL.Negocios.Tipo

        rptTipologias.DataSource = objTipos.ListarTiposPorClassificacaoTipo(intCodigoClassificacao)
        rptTipologias.DataBind()

    End Sub

    Private Sub RecuperaQueryString()

        If Not String.IsNullOrEmpty(Request("c")) Then intCodigoClassificacao = Convert.ToInt32(Request("c"))

    End Sub

    Private Sub SalvarTipologia()

        Dim objTipologia As New Objetos.Tipo With {.CodigoClassificacao = intCodigoClassificacao,
                                                   .DescricaoTipo = txtDescricaoTipologia.Text}

        Dim objTipologias As New DLL.Negocios.Tipo
        objTipologias.Salvar(objTipologia)

    End Sub

#End Region

#Region "Eventos"

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        RecuperaQueryString()
        CarregarRepeater()

    End Sub

    Private Sub btnAdicionar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnAdicionar.Click

        SalvarTipologia()
        CarregarRepeater()

    End Sub

#End Region



End Class